/*
 * Copyright © 2001 Red Hat, Inc.
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Red Hat not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  Red Hat makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * RED HAT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL RED HAT
 * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 * Author:  Owen Taylor, Red Hat, Inc.
 */
#include "string.h"
#include "stdlib.h"

#include <X11/Xlib.h>
#include <X11/Xmd.h>		/* For CARD32 */

#include "xsettings-common.h"

XSettingsSetting *
xsettings_setting_copy (XSettingsSetting *setting)
{
	XSettingsSetting *result;
	size_t str_len;

	result = calloc (1, sizeof *result);
	if (!result)
		return NULL;

	str_len = strlen (setting->name);
	result->name = calloc (str_len + 1, 1);
	if (!result->name)
		goto err;

	memcpy (result->name, setting->name, str_len + 1);

	result->type = setting->type;

	switch (setting->type)
	{
	case XSETTINGS_TYPE_INT:
		result->data.v_int = setting->data.v_int;
		break;
	case XSETTINGS_TYPE_COLOR:
		result->data.v_color = setting->data.v_color;
		break;
	case XSETTINGS_TYPE_STRING:
		str_len = strlen (setting->data.v_string);
		result->data.v_string = calloc (str_len + 1, 1);
		if (!result->data.v_string)
			goto err;

		memcpy (result->data.v_string, setting->data.v_string, str_len + 1);
		break;
	default:
		break;
	}

	result->last_change_serial = setting->last_change_serial;

	return result;

err:
	if (result->name)
		free (result->name);
	free (result);

	return NULL;
}

XSettingsList *
xsettings_list_copy (XSettingsList *list)
{
	XSettingsList *new = NULL;
	XSettingsList *old_iter = list;
	XSettingsList *new_iter = NULL;

	while (old_iter)
	{
		XSettingsList *new_node;

		new_node = calloc (1, sizeof *new_node);
		if (!new_node)
			goto error;

		new_node->setting = xsettings_setting_copy (old_iter->setting);
		if (!new_node->setting)
		{
			free (new_node);
			goto error;
		}

		if (new_iter)
			new_iter->next = new_node;
		else
			new = new_node;

		new_iter = new_node;

		old_iter = old_iter->next;
	}

	return new;

error:
	xsettings_list_free (new);
	return NULL;
}

int
xsettings_setting_equal (XSettingsSetting *setting_a,
						 XSettingsSetting *setting_b)
{
	if (setting_a->type != setting_b->type)
		return 0;

	if (strcmp (setting_a->name, setting_b->name) != 0)
		return 0;

	switch (setting_a->type)
	{
	case XSETTINGS_TYPE_INT:
		return setting_a->data.v_int == setting_b->data.v_int;
	case XSETTINGS_TYPE_COLOR:
		return (setting_a->data.v_color.red == setting_b->data.v_color.red &&
				setting_a->data.v_color.green == setting_b->data.v_color.green &&
				setting_a->data.v_color.blue == setting_b->data.v_color.blue &&
				setting_a->data.v_color.alpha == setting_b->data.v_color.alpha);
	case XSETTINGS_TYPE_STRING:
		return strcmp (setting_a->data.v_string, setting_b->data.v_string) == 0;
	default:
		break;
	}

	return 0;
}

void
xsettings_setting_free (XSettingsSetting *setting)
{
	if (setting->type == XSETTINGS_TYPE_STRING)
		free (setting->data.v_string);

	if (setting->name)
		free (setting->name);

	free (setting);
}

void
xsettings_list_free (XSettingsList *list)
{
	while (list)
	{
		XSettingsList *next = list->next;

		xsettings_setting_free (list->setting);
		free (list);

		list = next;
	}
}

XSettingsResult
xsettings_list_insert (XSettingsList    **list,
					   XSettingsSetting  *setting)
{
	XSettingsList *node;
	XSettingsList *iter;
	XSettingsList *last = NULL;

	node = calloc (1, sizeof *node);
	if (!node)
		return XSETTINGS_NO_MEM;
	node->setting = setting;

	iter = *list;
	while (iter)
	{
		int cmp = strcmp (setting->name, iter->setting->name);

		if (cmp < 0)
			break;
		else if (cmp == 0)
		{
			free (node);
			return XSETTINGS_DUPLICATE_ENTRY;
		}

		last = iter;
		iter = iter->next;
	}

	if (last)
		last->next = node;
	else
		*list = node;

	node->next = iter;

	return XSETTINGS_SUCCESS;
}

XSettingsResult
xsettings_list_delete (XSettingsList **list,
					   const char     *name)
{
	XSettingsList *iter;
	XSettingsList *last = NULL;

	iter = *list;
	while (iter)
	{
		if (strcmp (name, iter->setting->name) == 0)
		{
			if (last)
				last->next = iter->next;
			else
				*list = iter->next;

			xsettings_setting_free (iter->setting);
			free (iter);

			return XSETTINGS_SUCCESS;
		}

		last = iter;
		iter = iter->next;
	}

	return XSETTINGS_FAILED;
}

XSettingsSetting *
xsettings_list_lookup (XSettingsList *list,
					   const char    *name)
{
	XSettingsList *iter;

	iter = list;
	while (iter)
	{
		if (strcmp (name, iter->setting->name) == 0)
			return iter->setting;

		iter = iter->next;
	}

	return NULL;
}

char
xsettings_byte_order (void)
{
	CARD32 myint = 0x01020304;
	return (*(char *)&myint == 1) ? MSBFirst : LSBFirst;
}
